subroutine calciabcig(r2, t1, t2, icore, iabci_c, icore_c)
!use common
use mod_iop
use mod_size
use mod_orbit
use mod_ioff 
real*8, intent(in),device ::  r2(*), t1(*), t2(*)
real*8, intent(in),device :: icore(*)
real*8, intent(in) :: iabci_c(*), icore_c(*)
!
real*8 tt(20), rt(20)
!---------------------------------------------------------
call effectt2(t2, t1,  icore, 1.d0, no, nv)
if(ioiabci==0) then 
  call r2abij_t2efij_t1bm_iefam_g(r2, t2, t1, iabci_c, icore, -0.5d0)
elseif(ioiabci==1) then 
  call r2abij_t2efij_t1bm_iefam_io_g(r2, t2, t1, icore_c, icore, -0.5d0)
endif
call effectt2(t2, t1,  icore, -1.d0, no, nv)
!------
return
end
